﻿Imports System
Imports System.Collections

Public Class DetalleLoteBE

#Region "Campos y Propiedades"
    Private _IdElemento As Integer
    Private _IdLote As Integer
    Private _IdTipoDocumento As Integer
    Private _NombreTipoDocumento As String
    Private _IdTipoContenedor As Integer
    Private _NombreTipoContenedor As String
    Private _CantidadDocumentos As Integer
    Private _CantidadFolios As Integer
    Private _Comentarios As String
    Private _Estado As Boolean
    Private _EstadoDetalle As Boolean
    Private _FechaCreacion As DateTime
    Private _FechaModificacion As DateTime

    Public Property IdLote() As Integer
        Get
            Return _IdLote
        End Get
        Set(ByVal value As Integer)
            _IdLote = value
        End Set
    End Property

    Public Property IdElemento() As Integer
        Get
            Return _IdElemento
        End Get
        Set(ByVal value As Integer)
            _IdElemento = value
        End Set
    End Property

    Public Property IdTipoContenedor() As Integer
        Get
            Return _IdTipoContenedor
        End Get
        Set(ByVal value As Integer)
            _IdTipoContenedor = value
        End Set
    End Property

    Public Property NombreTipoContenedor() As String
        Get
            Return _NombreTipoContenedor
        End Get
        Set(ByVal value As String)
            _NombreTipoContenedor = value
        End Set
    End Property

    Public Property IdTipoDocumento() As Integer
        Get
            Return _IdTipoDocumento
        End Get
        Set(ByVal value As Integer)
            _IdTipoDocumento = value
        End Set
    End Property

    Public Property NombreTipoDocumento() As String
        Get
            Return _NombreTipoDocumento
        End Get
        Set(ByVal value As String)
            _NombreTipoDocumento = value
        End Set
    End Property

    Public Property CantidadDocumentos() As Integer
        Get
            Return _CantidadDocumentos
        End Get
        Set(ByVal value As Integer)
            _CantidadDocumentos = value
        End Set
    End Property

    Public Property CantidadFolios() As Integer
        Get
            Return _CantidadFolios
        End Get
        Set(ByVal value As Integer)
            _CantidadFolios = value
        End Set
    End Property

    Public Property Estado() As String
        Get
            Return _Estado
        End Get
        Set(ByVal value As String)
            _Estado = value
        End Set
    End Property

    Public Property EstadoDetalle() As Boolean
        Get
            Return _EstadoDetalle
        End Get
        Set(ByVal value As Boolean)
            _EstadoDetalle = value
        End Set
    End Property

    Public Property Comentarios() As String
        Get
            Return _Comentarios
        End Get
        Set(ByVal value As String)
            _Comentarios = value
        End Set
    End Property


    Public Property FechaCreacion() As DateTime
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As DateTime)
            _FechaModificacion = value
        End Set
    End Property

    Public Property FechaModificacion() As DateTime
        Get
            Return _FechaModificacion
        End Get
        Set(ByVal value As DateTime)
            _FechaModificacion = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal _IdElemento As Integer, ByVal _IdLote As Integer, ByVal _IdTipoDocumento As Integer, ByVal _IdTipoContenedor As Integer, ByVal _CantidadDocumentos As Integer, ByVal _CantidadFolios As Integer, ByVal _Estado As Boolean, ByVal _EstadoDetalle As Boolean, ByVal _FechaCreacion As DateTime, ByVal _FechaModificacion As DateTime)
        Me._IdElemento = IdElemento
        Me._IdLote = IdLote
        Me._IdTipoDocumento = IdTipoDocumento
        Me._IdTipoContenedor = IdTipoContenedor
        Me._CantidadDocumentos = CantidadDocumentos
        Me._CantidadFolios = CantidadFolios
        Me._Estado = Estado
        Me._EstadoDetalle = EstadoDetalle
        Me._FechaCreacion = FechaCreacion
        Me._FechaModificacion = FechaModificacion
    End Sub
#End Region


End Class



Public Class DetalleLoteBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As DetalleLoteBE
        Get
            Return CType(List(index), DetalleLoteBE)
        End Get
        Set(ByVal value As DetalleLoteBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As DetalleLoteBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As DetalleLoteBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As DetalleLoteBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As DetalleLoteBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As DetalleLoteBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class
